perm filename COMP1.NEW[AL,HE]5 blob
sn#355013 filedate 1978-05-15 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .TITLE Pseudo-code
C00004 ENDMK
Cā;
;.TITLE Pseudo-code
;File that requires all the compiled files.
;Overlaid on top of the interpreter.
NEW == 1 ;0 for old, 1 for new
;Only need to insert this during first pass
.IF1
.IFNZ NEW
.PRINT /Experimental version - for use with ALNEW.SAV
/
.ENDC
.MACRO ASCIE STR
.ASCIZ STR
.EVEN
.ENDM
.MACRO MAKEOP CNAME, ANAME ;Compiler name, Address name
XX CNAME
.ENDM
.IFNZ NEW
.INSRT ALHEAD.NEW[AL,HE]
.INSRT INTOPS.NEW[AL,HE]
.IFF
.INSRT ALHEAD.PAL[AL,HE]
.INSRT INTOPS.PAL[AL,HE]
.ENDC
;The interpreter operation table
.ENDC
.OFFSET -160000
PUTLOC PCDVER, PCVERSION
.OFFSET -320000
. = PCODE ;Beginning of instruction space
; This file is followed by the .ALP, .ALT, & .ALV files. Then COMP2.PAL[AL,HE]